home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tk_bar / loadgrp.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-12-03  |  3.2 KB  |  121 lines
  1. VERSION 2.00
  2. Begin Form frmLoadGroup 
  3.    BackColor       =   &H0080FFFF&
  4.    Caption         =   "Load Group"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1545
  8.    ClientWidth     =   6180
  9.    Height          =   4680
  10.    Left            =   1065
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4245
  15.    ScaleWidth      =   6180
  16.    Top             =   1185
  17.    Width           =   6330
  18.    Begin CommandButton cmdShowName 
  19.       BackColor       =   &H00000000&
  20.       Caption         =   "Show Name"
  21.       Height          =   435
  22.       Left            =   4800
  23.       TabIndex        =   3
  24.       Top             =   2100
  25.       Width           =   1215
  26.    End
  27.    Begin CommandButton cmdCancel 
  28.       BackColor       =   &H00000000&
  29.       Caption         =   "Cancel"
  30.       Height          =   435
  31.       Left            =   4800
  32.       TabIndex        =   2
  33.       Top             =   1140
  34.       Width           =   1215
  35.    End
  36.    Begin CommandButton cmdOk 
  37.       BackColor       =   &H00000000&
  38.       Caption         =   "OK"
  39.       Default         =   -1  'True
  40.       Height          =   435
  41.       Left            =   4800
  42.       TabIndex        =   1
  43.       Top             =   600
  44.       Width           =   1215
  45.    End
  46.    Begin DirListBox Dir1 
  47.       Height          =   3180
  48.       Left            =   120
  49.       TabIndex        =   5
  50.       Top             =   600
  51.       Width           =   2595
  52.    End
  53.    Begin FileListBox File1 
  54.       Height          =   3540
  55.       Left            =   2820
  56.       Pattern         =   "*.grp"
  57.       TabIndex        =   0
  58.       Top             =   600
  59.       Width           =   1815
  60.    End
  61.    Begin DriveListBox Drive1 
  62.       Height          =   315
  63.       Left            =   120
  64.       TabIndex        =   4
  65.       Top             =   3840
  66.       Width           =   2595
  67.    End
  68.    Begin Label Label1 
  69.       AutoSize        =   -1  'True
  70.       BackColor       =   &H0080FFFF&
  71.       Caption         =   "Group Name"
  72.       Height          =   195
  73.       Left            =   120
  74.       TabIndex        =   7
  75.       Top             =   60
  76.       Width           =   1065
  77.    End
  78.    Begin Label lblGroupName 
  79.       BorderStyle     =   1  'Fixed Single
  80.       Height          =   255
  81.       Left            =   120
  82.       TabIndex        =   6
  83.       Top             =   300
  84.       Width           =   4515
  85.    End
  86. Option Explicit
  87. Sub cmdCancel_Click ()
  88.   gGroupFilename$ = ""
  89.   Unload Me
  90. End Sub
  91. Sub cmdOk_Click ()
  92.   gGroupFilename$ = Dir1.Path & "\" & File1.FileName
  93.   Unload Me
  94. End Sub
  95. Sub cmdShowName_Click ()
  96.   If File1.ListIndex = -1 Then Exit Sub
  97.   lblGroupName.Caption = GetGroupName$(Dir1.Path & "\" & File1.FileName)
  98.   File1.SetFocus
  99. End Sub
  100. Sub Dir1_Change ()
  101.   File1.Path = Dir1.Path
  102. End Sub
  103. Sub Drive1_Change ()
  104.   Dir1.Path = Drive1.Drive
  105. End Sub
  106. Sub File1_Click ()
  107.   lblGroupName.Caption = ""
  108. End Sub
  109. Sub File1_DblClick ()
  110.   Call cmdOk_Click
  111. End Sub
  112. Sub File1_PathChange ()
  113.   lblGroupName.Caption = ""
  114. End Sub
  115. Sub Form_Load ()
  116.    Drive1.Drive = Left$(gWindowsDir$, 1)
  117.    Dir1.Path = gWindowsDir$
  118.    File1.ListIndex = 0
  119.    CenterForm Me
  120. End Sub
  121.